home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Runtime / writeln.asm < prev    next >
Assembly Source File  |  1989-03-31  |  330b  |  26 lines
  1.  
  2. *    WriteLn.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    Just write a line feed to a text file.
  6.  
  7.     SECTION    ONE
  8.  
  9.     XREF    _p%DOSBase
  10.     XREF    _LVOWrite
  11.  
  12.     XDEF    _p%writeln
  13. _p%writeln
  14.  
  15.     move.l    #eoln,d2
  16.     moveq    #1,d3
  17.     move.l    4(sp),d1
  18.     move.l    _p%DOSBase,a6
  19.     jsr    _LVOWrite(a6)
  20.     rts
  21.  
  22.     SECTION    TWO
  23. eoln    dc.b    10,0
  24.     END
  25.  
  26.